VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen

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

    


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