Microsoft Excel

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