Alimentar célula Bloqueada


#1

Boa tarde!
Tenho um arquivo de cadastro de cliente, a Plan1(Comercial) é um painel onde alimento as informações na Plan2(B_dados) que é o banco de dados, porém esse banco de dados é bloqueado com login e senha, quando vou alimentar a plan2 ele pede login e senha, como faço para solicitar o login e senha somente quando clico na plan2?

Segue codigo que tenho para alimentar as informações da Plan1 para Plan2

Sheets(“b_dados”).Select
ActiveCell.FormulaR1C1 = “=R[1]C+1”
Range(“B5”).Select
ActiveCell.FormulaR1C1 = “=COMERCIAL!R[1]C”
Range(“B5”).Select
Selection.AutoFill Destination:=Range(“B5:I5”), Type:=xlFillDefault
Range(“B5:I5”).Select
Range(“J5”).Select
ActiveCell.FormulaR1C1 = “=COMERCIAL!R[4]C[-8]”
Range(“J5”).Select
Selection.AutoFill Destination:=Range(“J5:R5”), Type:=xlFillDefault
Range(“J5:R5”).Select
Range(“A5:R5”).Select
Selection.Copy
Range(“A5”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(“A1”).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = “”
Rows(“5:5”).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(“S5”).Select
ActiveCell.FormulaR1C1 = “’----------”
Range(“S5”).Select
Selection.Copy
Range(“T5:AH5”).Select
ActiveSheet.Paste
Range(“A5”).Select
Sheets(“COMERCIAL”).Select
Range(“B9:J9”).Select
Application.CutCopyMode = False
Selection.ClearContents
Range(“B6:J6”).Select
Selection.ClearContents
Range(“C2”).Select
Selection.ClearContents
ActiveWorkbook.Save


#2

Olá, @carlinhos.

Você só precisa incluir o seguinte no início do código:

Sheets(“b_dados”).Unprotect Password:="aqui entra a senha"

e no fim do código:

Sheets(“b_dados”).Protect Password:="aqui entra a senha"


#3

Olá Xavier,
Não deu certo, o fato de ter login também implica???


#4

Então este login deve ter sido desenvolvido por programação, aí só olhando o arquivo.


#5

Bom dia!

Descobri o código, muito obrigado.

Private Sub Worksheet_Activate()
On Error Resume Next
If Libera_Restrito = 1 Then
Exit Sub
Else
UserForm2.Show
End If
End Sub

'Modulo1
Public Libera_Restrito As String

Libera_Restrito = 1 (Inicio do código)

Libera_Restrito = 0 (Final do código)

Private Sub Workbook_Open()
Libera_Restrito = 0
End Sub