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

• #38095 Delila_1 veterán dellfanboy #38093

  Új Válasz 2018-05-23 19:51:18 #38095

  Ú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 dellfanboy #38093 üzenetére

  A ThisWorkbook laphoz kell rendelned a makrót.

  Private Sub Workbook_Open()
Dim honap As String

honap = Chr(Month(Date) + 64)
With Sheets("Munka1") 'Írd át a lap nevét
.Columns("A:N").Locked = True
.Protect Password:="TitkosJelszó", UserInterfaceOnly:=True 'Írd át a jelszót
.Columns(honap & ":N").Locked = False
End With
End Sub

  A füzetben Alt+F11-gyel bejutsz a makró szerkesztőbe. Bal oldalon kiválasztod a füzetedet, majd azon belül a ThisWorkbook lapot. A jobb oldalon lévő üres felületre másold be a makrót. A füzetbe visszalépve makróbarátként kell elmentened.

  Mikor megnyitod a füzetet, ez a makró automatikusan lefut, és elvégzi a feladatot.

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