title image


Smiley Re: Sortieren bei geschütztem Tabellenblatt
Hallo!



Du kannst das mit Hilfe von VBA realisieren.

Dazu musst Du folgende Maßnahmen treffen:



1. Im VBA-Editor in einem normalen Modul folgenden Code einfügen:



Sub SortierenImGeschütztenArbeitsblatt()

On Error GoTo Ende

Const cstr_Passwort = "test"

Dim wsh As Worksheet

Set wsh = ActiveSheet

If wsh.ProtectContents Then

wsh.Unprotect password:=cstr_Passwort

Application.Dialogs(xlDialogSort).Show

End If

Ende:

wsh.Protect password:=cstr_Passwort

End Sub



Ob der jetzt die optimale Lösung darstellt, sei dahingestellt. Außerdem musst Du ihn hinsichtlich des Passwortes noch anpassen.



2. Das VBA-Projekt sperren

Das ist nötig, damit man nicht als Unbefugter über den o.a. Code an das Passwort kommt. Sei Dir bewußt, dass dieses Passwort zu knacken ist !



3. Die o.a. Prozedur zuweisen

Damit die Prozedur auch problemlos aufgerufen werden kann, muss sie zugewiesen werden.

Entweder einem Shortcut (Extras-Makro-Makros) oder

dem Menübefehl Daten-Sortieren (vgl. http://www.spotlight.de/zforen/mse/m/mse-1145970967-26048.html)



Viel Erfolg

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: