Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen
Gruppe
Arbeitsmappe
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