- Katılım
- 2 Aralık 2013
- Mesajlar
- 401
- Excel Vers. ve Dili
- Microsoft Office Standard 2013-Türkçe
- Altın Üyelik Bitiş Tarihi
- 22-10-2022
Merhaba, EK' li olan dosyada;
1-Aşağıdaki kodları bir başka dosyada kullandığım da, sayfa koruma şifresi ile giriş yapıldığı zaman hücrede düzenleme yapılmasına, izin verilmesine ihtiyacım var. Mevcut olan kodları formda başka konuda gördüm kendi dosyama uyarlamaya çalıştım. Ancak başarılı olamadım.
2- Düzenleme yapıldıktan sonra EK' li olan dosya da mevcut olan kod kısmına eklenmesine ihtiyacım var. Var olan makroya bir başka kod nasıl eklenir bunun nasıl yapıldığını öğrenmek istiyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:AW44")) Is Nothing Then ' Range(".......") kısmına korumak istediğiniz hücre adreslerini yazın.
ActiveSheet.Unprotect "şifreniz" ' şifre gerekmezse "şifreniz" yazan kısmı silebilirsiniz
Cells.Locked = False
FormulaHidden = False
Target.Locked = True
FormulaHidden = True
ActiveSheet.Protect "şifreniz" ' şifre gerekmezse "şifreniz" yazan kısmı silebilirsiniz
MsgBox prompt:="Bu HÜCREYE giris izniniz yok! - E.Ö", _
Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
End If
End Sub
1-Aşağıdaki kodları bir başka dosyada kullandığım da, sayfa koruma şifresi ile giriş yapıldığı zaman hücrede düzenleme yapılmasına, izin verilmesine ihtiyacım var. Mevcut olan kodları formda başka konuda gördüm kendi dosyama uyarlamaya çalıştım. Ancak başarılı olamadım.
2- Düzenleme yapıldıktan sonra EK' li olan dosya da mevcut olan kod kısmına eklenmesine ihtiyacım var. Var olan makroya bir başka kod nasıl eklenir bunun nasıl yapıldığını öğrenmek istiyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:AW44")) Is Nothing Then ' Range(".......") kısmına korumak istediğiniz hücre adreslerini yazın.
ActiveSheet.Unprotect "şifreniz" ' şifre gerekmezse "şifreniz" yazan kısmı silebilirsiniz
Cells.Locked = False
FormulaHidden = False
Target.Locked = True
FormulaHidden = True
ActiveSheet.Protect "şifreniz" ' şifre gerekmezse "şifreniz" yazan kısmı silebilirsiniz
MsgBox prompt:="Bu HÜCREYE giris izniniz yok! - E.Ö", _
Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
End If
End Sub
Ekli dosyalar
-
118.7 KB Görüntüleme: 3