| 
                              
                                  Thema
                              
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
12.05.2011 16:12:41 | 
iudex84 | 
 | 
 | 
  Bestimmten Bereich per VBA schützen, nach Eingabe in Zelle  | 
12.05.2011 19:07:36 | 
Till | 
 | 
 | 
 | 
13.05.2011 12:51:03 | 
Gast53824 | 
 | 
 | 
 | 
13.05.2011 12:52:58 | 
iudex84 | 
 | 
 | 
 | 
13.05.2011 15:59:22 | 
Till | 
 | 
 | 
 | 
14.05.2011 14:09:16 | 
iudex84 | 
 | 
 | 
                  
    
                    
             
								 
									
										Von: 
                                            Till | 
										Datum: 
                                            12.05.2011 19:07:36 | 
										Views:
                                             
                                            1400 | 
										Rating:
                                                                          | 
										Antwort: 
                                             
                                             
                                             | 
									
									
										Thema:
                                             
                                            Bestimmten Bereich per VBA schützen, nach Eingabe in Zelle | 
									
									
										|  
                                             
	Hallo, 
	daraus solltest du dir was basteln können: 
Sub ZellenSperren()
lockCells 0
    
    Range("A10:AM10").Locked = True
    Range("D10").Locked = False
    
lockCells
End Sub
Function lockCells(Optional ByVal lockMode As Boolean = 1)
    
    Dim x As Variant
    
    For Each x In ActiveWorkbook.Sheets
        With x
        .Protect DrawingObjects:=lockMode, Contents:=lockMode, Scenarios:=lockMode
        '.EnableSelection = xlUnlockedCells
        End With
    Next
   
End Function
	lockCells aktiviert den Blattschutz bzw. hebt diesen auf. 
     | 
									
								
							
 					
		   
 
                          
                        
                                
                    - Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
 
                                        - Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
 
                        - Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
 
                        - Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
 
                        - Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
 
                                    
                            
                             
                          
	
                         
                                  
                             
                             Bitte geben Sie ein aussagekräftiges Thema an. 
                            
                            Bitte geben Sie eine gültige Email Adresse ein!
                            
                            
                       
                                - Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
 
                                        - Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
 
                        - Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
 
                        - Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
 
                        - Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
 
                                    
                        
                            
                        
                         
                                                  
 
                                       
                            
                      
                          | 
                              
                                  Thema                               
                           | 
                          
                              
                                  Datum 
                           | 
                          
                              
                                  Von Nutzer
                           | 
                          
                              
                                  Rating
                           | 
                          
                               
                                  Antwort 
                           | 
                      
                      
 | 
12.05.2011 16:12:41 | 
iudex84 | 
 | 
 | 
  Bestimmten Bereich per VBA schützen, nach Eingabe in Zelle  | 
12.05.2011 19:07:36 | 
Till | 
 | 
 | 
 | 
13.05.2011 12:51:03 | 
Gast53824 | 
 | 
 | 
 | 
13.05.2011 12:52:58 | 
iudex84 | 
 | 
 | 
 | 
13.05.2011 15:59:22 | 
Till | 
 | 
 | 
 | 
14.05.2011 14:09:16 | 
iudex84 | 
 | 
 |