Zugriffszähler

[Orakel]

Na dann viel Spass mit dem Teil.
aber machs doch nicht so kompliziert:

Private Sub Workbook_Open()
    Range("A1").Value = Range("A1").Value + 1
    Range("B2").Value = Range("B1").Value
    Range("B1").Value = Date
    Range("C2").Value = Range("C1").Value
    Range("C1").Value = Time
End Sub

Gruß
vom Orakel

 

[gvlms]

danke dir!

 

[gvlms]

Ach Mensch, je mehr ich mich damit beschäftige, desto mehr fällt mir ein, was ich noch machen könnte...

In dieser Arbeitsmappe soll der Zugriffsbereich (nicht die Maus, sondern die Markierung der Zellen) eingeschränkt sein.
Der Prof hat uns folgenden Befehl dafür hinterlassen:

Worksheets("Tabelle1").ScrollArea = "a1:d13"

Soweit in Ordnung. Aber was ist, wenn ich keinen Bereich, sondern nur einzelne Zellen zulassen möchte? Um genau zu sein, nur 2 Zellen, die aber nicht nebeneinander liegen. Bsp. a1 und c10

Wollte deswegen nicht extra ein neues Thema eröffnen...
Jedenfalls: Wie geht das!

 

[duckdonald]

Hi,

wenn du die Zelleneigenschaften dieser beiden Zellen aufrufst und im Register "Schutz" das Häckchen vor "gesperrt entfernst" dann kannst du mit "Extras->Schutz->Blatt schützen" ein Passwort festlegen (nicht unbedingt notwendig)
In den weiteren Optionen dieses Fensters kannst du festlegen was Ausgewählt und verändert werden darf.

 

[Orakel]

Hi,

IMHO geht das mit der Eigenschaft ScrollArea nicht.

Gruß
Das Orakel

edit: Der Hinweis von DuckDonald könnte die Lösung sein