Thema: Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   Application.DisplayAlerts = False
   If WorksheetFunction.CountA(Range("B3:B5")) = 3 Then
      ActiveWorkbook.SaveAs _
         FileName:=Range("B1").Value, _
         writeresPassword:="HWH"
      ActiveWorkbook.Close
   End If
   Application.DisplayAlerts = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Arbeitsmappe