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

• #48231 Magnat veterán Attas #48230

  Új Válasz 2022-01-12 20:25:29 #48231

  Ú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

  

  Magnat

  veterán

  válasz Attas #48230 üzenetére

  Szia,

  makró rögzítésével csináld meg egy lapra, aztán:

  Sub WSLoop()
    Dim I As Integer
    For I = 1 To Worksheets.Count
        Worksheets(I).Activate
        'Ide pedig másold be a generált kódot.
    Next
End Sub

  A generált kód meg ilyesmi lesz:
  Cells(1,2).locked=false
  ActiveSheet.Protect password:="pw", UserInterfaceOnly:=True

  feloldásnál értelemszerűen Unprotect ...

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