"Az egyik levédi a táblázatot, a másik feloldja. Ezt meg is tettem, baj csak az, hogy a lapvédelem jelszót nem tárolja, azaz jelszó nélkül teszi meg, mint halottnak a csók, annyit ér!"

 

Esetleg nem mutatnád meg a makrót?

 

Nálam ez működik:

 

Védelem bekapcsolás:

 

Worksheets("MunkalapNeve").Protect Password:="12345", Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowDeletingRows:=True

 

Védelem kikapcsolás:

 

Worksheets("MunkalapNeve").Unprotect Password:="12345"