GIZLI SAYFADA MAKRO CALISIRMI

[gcanlar2012]

SELAM DAHA Ã?NCE HAZIRLADIGIM EXCEL DOSYASINDA 35 SAYFA VAR.BEN BU DOSYADA MAKRO ÇALISTIRIYORUM.FORUMDA SAYFA GIZLEMEYI GORDUM.KUSURA BAKMAYIN DENEME YAPMADAN DIREK SORUYORUM AMA SIZLER BUNLARIN HEPSINI DENEMISSINIZDIR GIZLI SAYFADA MAKRO CALISIRMI .ISLEM YAPILAN SAYFALARI GIZLEYECEMDE
SIMDIDEN TESEKKUR EDERIM

 

[danersin]

Hem evet, hem hayır. Sanırım sizde deneyerek görmek zorunda kalacaksınız.
Gizli sayfalarda kodlar çalışır ancak bu sayfaları activate etmenizi gerektiren komutlar varsa kodlarınızda (ve çoğu zaman excelin gelişmiş araçlarını kullanırken kod vasıtası ile) bu durumda hatalar ile karşılaşırsınız. Başka bir yolda kod vasıtası ile sayfada kod çalışacağı zaman sayfayı görünür işlem bitince yeniden gizli yaparsanız vede application.screenupdating=false kullanırsanız makronun başında kullanıcı farketmeden yine istediğiniz olur.

 

[xxrt]

Kodlarının Başına

Sheets("Sayfa1").Visible = True

Sonunada

Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.Visible = False

 

[gcanlar2012]

OKADAR HIZLISINIZ K0 SANKI YANIMDA BERABER CALISIYORUZ.YAN0 HARIKASINIZ.

BIR UFAK SORU DAHA

MSGBOX SADECE EKRANIN ORTASINDAMI ÇIKAR YOKSA ISTEGEMI BAGLI.

NOT: KUSURA BAKMAYIN GERCEKTEN VISUAL BASIC BILGIM HIC YOK AMA DENE YANIL ILE COK CABUK OGRENIORUM.SIZIN SAYENIZDE TABI TESEKKUR EDERIM

 

[gcanlar2012]

XXRT YAZDIGIN KODLARIN KULLANIMINI BIRAZ ACARMISIN.RICA ETSEM
BUNU HER SAYFA ADI ICINMI YAPICAM.

 

[gcanlar2012]

ARAÇLARI GİZLE

Sub Autpen()
    Application.CommandBars.FindControl(ID:=30007).Enabled = False
End Sub
'
Sub Auto_Close()
    Application.CommandBars.FindControl(ID:=30007).Enabled = True
End Sub

YUKARIDA YAZAN KODUDA FORUMDAN ALDIM AMA KAFAMA BIRSEY TAKILDI.BU SADECE ARACLAR MENUSU ICIN.DOGRU YADA YANLIS BILMIYORUM AMA ID:=300007 BU ARACLAR MENUSU ICINMI.YANI BEN GORUNUMU GIZLEMEK ISTESEM NE OLACAK.BIRDE ARKADASLARDAN BIRI SOYLE BIR YOL YAZMIS DENEDIM OLMADI MENUNUN YANINDA SAG TIK OZELLESTIR KALDIRMAK ISTEDIGIN OZELLIGI TUT SAYFADA BIRAK KALDIRIR VE ONU EXCEL11 DIYE BIR DOSYADA SAKLAR DIYE AMA OLMADI BIR YARDIM EDERSENIZ SEVINIRIM

 

[xxrt]

Çalışma Kitabında Sayfa1'i Gizlediğini varsayalım..
Fakat Dosyayı açan Kullanıcı Sayfa1'de işlem yapması gerekiyor veya sizin kodlarınız Sayfa1'de işlem yapması gerekiyor..
Kodlarınızın başına

Sheets("Sayfa1").Visible = True

yazdığınızda Gizli olan Sayfa1 açılıyor..
Ve Kodlarınızda yapılması gerekenler ne ise onu yapıyorsunuz,işi bittikten sonra
yani kodların,

Sheets("Sayfa1").Select 'Sayfayı seçiyor.
ActiveWindow.SelectedSheets.Visible = False'Seçili sayfayı gizliyor..

Ã?rnek Bir çalışma ..
Burada Sayfa'in Gizli olması Gerek..

Sub deneme()
Sheets("Sayfa1").Visible = True
Sheets("Sayfa1").Select
Range("A1").Value = "Bu Sayfa Gizlidir."
Sheets("Sayfa1").Select 'Sayfayı seçiyor.
ActiveWindow.SelectedSheets.Visible = False 'Seçili sayfayı gizliyor..
End Sub

Kodu Çalıştırdıktan sonra Gizli Sayfayı açın.
A1 Hücresine
Bu Sayfa Gizlidir. yazısının yazıldığını göreceksiniz..

 

[xxrt]

ID:=300007

Evet Araçlar Menüsünün Enabled özelliğini False ediyor,diğeri True yani açıyor..
http://www.excel.web.tr/viewtopic.php?p=16003#16003
Linkinde de buna benzer bir konu var.

 

[gcanlar2012]

XXRT ANLASILMISTIR.TESEKKUR EDERIM.

 

[gcanlar2012]

ÇOK SORU SORDUM AMA AFFINIZA SIGINIYORUM.

DOSYA : ID:=........
DÜZEN : ID:=........
GÃ?RÜNÜM : ID:=........
....
...
...
YARDIM : ID:=..........

BUNLARIN NUMARASI KAÇ USTA ?

 

[gcanlar2012]

SON SORDUGUM SORUNUN CEVABINI DENEYEREK(30006,30005,30004)BULDUM HERSEY ICIN TESEKKUR EDERIM.

 

[d_yuksel]

merhaba... ben bu kodları yazdır butonuna atadım. gizli sayfayı açıyor ancak tekrar gizlemiyor nedeni nedir acaba...???

 

[d_yuksel]

Sub YAZDIR()
Sheets("1 Snt").Visible = True
If Sheets("Ana Sayfa").[C2] = "" Or Sheets("Ana Sayfa").[C2] = 0 Then
MsgBox "LÜTFEN FİRMA ADINIZI YAZIN", vbCritical, "DİKKAT !"
Exit Sub: End If
If Sheets("Ana Sayfa").[C4] = "" Or Sheets("Ana Sayfa").[C4] = 0 Then
MsgBox "AD SOYAD KISMI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
Exit Sub: End If
If Sheets("Ana Sayfa").[C5] = "" Or Sheets("Ana Sayfa").[C5] = 0 Then
MsgBox "ADRES KISMI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
Exit Sub: End If
If Sheets("Ana Sayfa").[C10] = "" Or Sheets("Ana Sayfa").[C10] = 0 Then
MsgBox "LÜTFEN İLK TARİHİ YAZINIZ", vbCritical, "DİKKAT !"
Exit Sub: End If
If Sheets("Ana Sayfa").[C11] = "" Or Sheets("Ana Sayfa").[C11] = 0 Then
MsgBox "SIRALI SENET İBARESİ BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
Exit Sub: End If
If Sheets("Ana Sayfa").[C14] = "" Or Sheets("Ana Sayfa").[C14] = 0 Then
MsgBox "TAKSİT TUTARI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
Exit Sub: End If
On Error GoTo Hata
Sheets(Sheets("Ana Sayfa").[C14] & " Snt").PrintOut
Exit Sub
Worksheets("1 Snt").Visible = False
Exit Sub
Hata:
MsgBox "YAZDIRMAK İSTEDİĞİNİZ SAYFA BULUNAMAMIŞTIR.TAKSİT SAYISINI KONTROL EDİNİZ !", vbCritical, "DİKKAT !"
End Sub

yaptığımda gizli olan 1 Snt sayfasını açıyor ancak tekrar gizlemek için nereye ve nasıl yazacağımı yazar mısınız??

 

[d_yuksel]

istediğimi buldum çok teşekkür ederim

 

[ilmtrz]

Teşekkürler