Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each sh In ThisWorkbook.Worksheets sh.Protect Password:="PIPPO" Next ThisWorkbook.Save End Sub