Gruppe
Datei
Bereich
Arbeitsmappe
Thema
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen
Problem
Wie kann ich eine Arbeitsmappe, nachdem 3 Eingabezellen ausgefüllt wurden, unverzüglich auf "ReadOnly" setzen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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