AccessTr.neT

(13/06/2019, 14:50)haliliyas yazdı: [ -> ]açıkçası "tek bildiğim hiç bir şey bilmediğimdir".)
Üyeler sorana kadar hiç bir fikrimin olmadığı şeyleri cevaplamaya çalışırken öğreniyorum.
tabi ki her soruya cevap bulamıyoruz ama araştırırken yığınla şey öğreniyor insan.

Tebrik ediyorum. Bu şekilde gelişip ilerliyoruz muhakkak.

Merhaba;

(14/06/2019, 00:51)ozguryasin yazdı: [ -> ]Merhaba;

Kod:

'Alttaki Koruma koyma

   Sheets("Sayfa1").Select
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


'Alttaki Koruma Kaldırma

   Sheets("Sayfa1").Select
   ActiveSheet.Unprotect

Teşekkürler kod için. Ben işimi hallettim ama diğer arkadaşlara lazım olabilir. Sağolun.