Salutari,
Aș dori să protejez și să deprotejez mai multe foi de lucru și să dezactivez opțiunea Selectați celule blocate, astfel încât celulele protejate să nu poată fi selectate.
Am găsit un cod VBA care poate bloca mai multe foi de lucru simultan și un pic de cod pentru bitul de celule blocate, dar nu am nicio idee despre cum să le îmbină pe cele două.
Am celulele pe care le vreau deblocate prin fila Protecție din secțiunea Aliniere din Panglică.
Pentru informare: Acesta este un registru de lucru diferit de subiectul meu anterior.
Exemplu de cod pe care l-am găsit pentru a proteja toate foile de lucru: Sub ProtectAllWorksheetsWithInputbox()
„Pasul 1: Declarați-vă variabilele
Dim ws As Worksheet
Dim Pwd As String
„Pasul 2: introduceți parola pentru a proteja toate foile de lucru
Pwd = InputBox(„Introduceți parola pentru a proteja toate foile de lucru”, „Introducerea parolei”)
„Pasul 3: Începeți să parcurgeți toate foile de lucru
Pentru fiecare ws În ActiveWorkbook.Worksheets
„Pasul 4: Protejați și treceți la următoarea foaie de lucru
ws.Protect Password:=Pwd
Următorul ws
End Sub
Cod pe care l-am găsit pentru a dezactiva opțiunea Selectați celule blocate:
Multumesc,
Viepyr
Aș dori să protejez și să deprotejez mai multe foi de lucru și să dezactivez opțiunea Selectați celule blocate, astfel încât celulele protejate să nu poată fi selectate.
Am găsit un cod VBA care poate bloca mai multe foi de lucru simultan și un pic de cod pentru bitul de celule blocate, dar nu am nicio idee despre cum să le îmbină pe cele două.
Am celulele pe care le vreau deblocate prin fila Protecție din secțiunea Aliniere din Panglică.
Pentru informare: Acesta este un registru de lucru diferit de subiectul meu anterior.
Exemplu de cod pe care l-am găsit pentru a proteja toate foile de lucru: Sub ProtectAllWorksheetsWithInputbox()
„Pasul 1: Declarați-vă variabilele
Dim ws As Worksheet
Dim Pwd As String
„Pasul 2: introduceți parola pentru a proteja toate foile de lucru
Pwd = InputBox(„Introduceți parola pentru a proteja toate foile de lucru”, „Introducerea parolei”)
„Pasul 3: Începeți să parcurgeți toate foile de lucru
Pentru fiecare ws În ActiveWorkbook.Worksheets
„Pasul 4: Protejați și treceți la următoarea foaie de lucru
ws.Protect Password:=Pwd
Următorul ws
End Sub
Cod pe care l-am găsit pentru a dezactiva opțiunea Selectați celule blocate:
- Cu ActiveSheet
- .Proteja
- .EnableSelection = xlUnlockedCells
- Se termina cu
Multumesc,
Viepyr