Új hozzászólás Aktív témák

• #37961 Delila_1 veterán SzlobiG #37960

  Új Válasz 2018-05-02 18:19:43 #37961

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz SzlobiG #37960 üzenetére

  Úgy látom, a védett lapoknál feloldod a védelmet, és fordítva.

  Kiegészítve a formázási lehetőségekkel a makró

  Sub LapokVedelme()
Dim pw As String, wSheet As Object

pw = InputBox("Kérem a jelszót", "Jelszó bekérése")

For Each wSheet In Worksheets
With wSheet
If .ProtectContents = True Then
.Unprotect Password:=pw
Else
.Protect DrawingObjects:=True, Password:=pw, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End If
End With
Next
End Sub

Új hozzászólás Aktív témák