Gruppe
Datei
Problem
Wie kann ich eine Arbeitsmappe, nachdem 3 Eingabezellen ausgefüllt wurden, unverzüglich 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