Bagaimana cara menampilkan buku kerja di excel vba?

Table of Contents Show
Buku kerja?
Dim objExcelApp Sebagai Excel. Aplikasi
Dim objExcelWkb Sebagai Excel. Buku kerja
Redupkan objekExcelWks Sebagai Excel. Lembar kerja
myDir = "c. Buku1. xl"
Atur objExcelApp = Excel Baru. Aplikasi
Tetapkan objExcelWkb = objExcelApp. Buku kerja. Buka (Nama File. =Dirku)
Tetapkan objExcelWks = objExcelWkb. Lembar Kerja("sheet1")
objExcelWks. Terlihat = xlSheetTerlihat
objExcelWkb. Menutup
Setel objExcelApp = Tidak ada
Tetapkan objExcelWkb = Tidak ada
Tetapkan objExcelWks = Tidak ada
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"epurdy melalui vb-vba-l"
09/10/2007 11. 51 pagi
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
[vb-vba-l] Perlihatkan buku kerja
Dari VB6, bagaimana saya bisa menyembunyikan buku kerja secara terprogram
Saya tahu bagaimana melakukannya dari menu pull down Excel
E-mail ini, termasuk lampiran, dapat berisi rahasia dan/atau
informasi kepemilikan, dan hanya dapat digunakan oleh orang atau entitas untuk
yang dituju. Jika pembaca email ini bukan yang dimaksud
penerima atau agen resminya, pembaca dengan ini diberitahu
bahwa setiap penyebaran, pendistribusian atau penyalinan email ini adalah
dilarang. Jika Anda telah menerima email ini karena kesalahan, harap beri tahu
pengirim dengan membalas pesan ini dan segera menghapus email ini
Apakah postingan ini bermanfaat?
Ini pasti seluruh buku kerja bukan hanya lembar kerja
Saya membuka, memuat, dan menyimpan buku kerja dari kode VB6
Ketika saya pergi untuk melihat buku kerja yang sudah selesai, itu selalu tersembunyi
Apakah postingan ini bermanfaat?
Sebenarnya saya pikir itu *aplikasi* yang tidak terlihat
Apakah postingan ini bermanfaat?
Itu lebih masuk akal
objExcelApp. Terlihat = Benar
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
" david. g. mil. melalui vb-vba-l"
09/10/2007 12. 31 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
Sebenarnya saya pikir itu *aplikasi* yang tidak terlihat

Apakah postingan ini bermanfaat?
Haruskah saya menyetel "objExcelApp. Terlihat = Benar" sebelum saya menyimpan buku kerja?
Apakah postingan ini bermanfaat?
Bisakah Anda membagikan kode Anda?
Excel, dan saya belum pernah membuat buku kerja disembunyikan sebelumnya
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"epurdy melalui vb-vba-l"
09/10/2007 12. 41 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
Haruskah saya menyetel "objExcelApp. Terlihat = Benar" sebelum saya menyimpan buku kerja?
Apakah postingan ini bermanfaat?
Tidak, sebenarnya " objExcelApp. Terlihat = Benar " sebelum menyimpan tidak berfungsi
salah satu
Apakah postingan ini bermanfaat?
Apakah Anda menggunakan
Jendela --> Perlihatkan
untuk melihatnya lagi?
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"epurdy melalui vb-vba-l"
09/10/2007 12. 23 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
Ini pasti seluruh buku kerja bukan hanya lembar kerja
Saya membuka, memuat, dan menyimpan buku kerja dari kode VB6
Ketika saya pergi untuk melihat buku kerja yang sudah selesai, itu selalu tersembunyi
Apakah postingan ini bermanfaat?
ya, benar
Apakah postingan ini bermanfaat?
Pertama saya menyalin buku kerja kosong yang berisi semua analisis matematika. Dia
hanya dibaca,
Jadi saya menyalinnya ke direktori kerja saya "FileCopy" lalu membuka proteksinya
"melindungiFile"
****************************************************
Sub publik getAnalysisFile()
Dim fname As String
Dim fromdir, todir As String
fname = Aplikasi. File Jalur dan DATAPATH & analisis
fromdir = nama
todir = Aplikasi. Jalur & "" & analisisFile
FileCopy fromdir, todir 'salin analisis kosong
mengajukan
Panggil protectFile(todir, u_file) 'hapus proteksi hanya-baca
****************************************************
Inilah sub yang menulis buku kerja
****************************************************
Publik Sub writeAnalysisWorkbook()
Redupkan wkbObj Sebagai Buku Kerja
Dim colIdx Sebagai Integer
Dim rowIdx Sebagai Integer
Dim fname As String
Rentang redup Sebagai String
fname = Aplikasi. Jalur & "" & analisisFile
Layar. Penunjuk Mouse = vba Jam Pasir
Setel wkbObj = GetObject(fname)
Untuk colIdx = 0 Ke UBound(letterArray)
Untuk barisIdx = 5 hingga 18
rentang = letterArray(colIdx) & rowIdx
wkwbObj. Spreadsheet("Data Benar"). Pilih
wkwbObj. Lembar Kerja ("Data Benar"). rentang (rentang). Nilai =
file1RightData(colIdx, rowIdx - 5)
wkwbObj. Spreadsheet("Data Kiri"). Pilih
wkwbObj. Lembar Kerja ("Data Kiri"). rentang (rentang). Nilai =
file1LeftData(colIdx, rowIdx - 5)
Baris berikutnyaIdx
ColIdx berikutnya
wkwbObj. Lembar Kerja ("Data Benar"). rentang("A1"). Nilai = "Benar" & " " &
fDate_1 & " Nomor Seri " & Nomor Seri
wkwbObj. Lembar Kerja ("Data Kiri"). rentang("A1"). Nilai = "Kiri" & " " &
fDate_1 & " Nomor Seri " & Nomor Seri
Untuk colIdx = 0 Ke UBound(letterArray)
Untuk barisIdx = 5 hingga 18
rentang = hurufArray(colIdx) & barisIdx + (21 - 5)
wkwbObj. Spreadsheet("Data Benar"). Pilih
wkwbObj. Lembar Kerja ("Data Benar"). rentang (rentang). Nilai =
file2RightData(colIdx, rowIdx - 5)
wkwbObj. Spreadsheet("Data Kiri"). Pilih
wkwbObj. Lembar Kerja ("Data Kiri"). rentang (rentang). Nilai =
file2LeftData(colIdx, rowIdx - 5)
Baris berikutnyaIdx
ColIdx berikutnya
wkwbObj. Lembar Kerja ("Data Benar"). rentang("A21"). Nilai = "Benar" & " " &
fdate_2 & " Nomor Seri " & Nomor Seri
wkwbObj. Lembar Kerja ("Data Kiri"). rentang("A21"). Nilai = "Kiri" & " " &
fdate_2 & " Nomor Seri " & Nomor Seri
wkwbObj. Menyimpan
wkwbObj. Tutup (Benar)
Setel wkbObj = Tidak ada
Layar. MousePointer = vbNormal
Akhir Sub
****************************************************
****
Apakah postingan ini bermanfaat?
maaf, maksud saya untuk buku kerja excel
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"Allen J Feld melalui vb-vba-l"
09/10/2007 12. 46 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc

Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
Bisakah Anda membagikan kode Anda?
Excel, dan saya belum pernah membuat buku kerja disembunyikan sebelumnya
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"epurdy melalui vb-vba-l"
09/10/2007 12. 41 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
Haruskah saya menyetel "objExcelApp. Terlihat = Benar" sebelum saya menyimpan buku kerja?
Apakah postingan ini bermanfaat?
Sempurna. Coba ini sebelum Anda menyimpannya, ini akan berhasil. Saya lupa tentang
induk
wkwbObj. Induk. Windows (wkbObj. Nama). Terlihat = Benar
-----------------------------------------------
Allen J. Feld
Pengembang Aplikasi II
Grup Solusi Kesehatan
afeld@uhc. com
http. / Membuka jendela baru/www. UnitedHealthGroup. com Membuka jendela baru
"epurdy melalui vb-vba-l"
09/10/2007 12. 53 sore
Mohon tanggapi
vb-vba-l@grup. ittoolbox. com
Ke
afeld@uhc. com
cc
Subjek
ULANG. [vb-vba-l] Perlihatkan buku kerja
ya, benar
Apakah postingan ini bermanfaat?
Tah-Dah, itu berhasil. Saya sudah tahan dengan gangguan itu selama 2 tahun
berbagai aplikasi,
Terima kasih banyak
Ed
Apakah postingan ini bermanfaat?
Visibilitas aplikasi tidak berpengaruh pada penyimpanan
Apakah postingan ini bermanfaat?
Solusi Allen Feld berhasil, terima kasih
Apakah postingan ini bermanfaat?
Itu dilakukan di bawah
objExcelApp. Terlihat = Benar
Di dalam Excel VBA itu akan menjadi
Aplikasi. Terlihat = Benar
Apakah postingan ini bermanfaat?
Baru saja melihatnya. senang mengetahui masalah Anda terpecahkan. Saya belajar tentang
objek induk dalam proses
Apakah postingan ini bermanfaat?
Anda dapat menggunakan properti Terlihat dari lembar kerja untuk melakukan pekerjaan itu
Untuk menyembunyikan lembar kerja bernama Sheet1
kode seharusnya
Lembar("Lembar1"). terlihat = salah
Untuk menyembunyikan hal yang sama seharusnya
Lembar("Lembar1"). terlihat = benar
Dengan menggunakan nomor indeks juga Anda dapat melakukan hal yang sama
Lembar(1). terlihat = salah ( 1 - Menunjukkan lembar pertama buku kerja)
Rgds
P. Somoorthi
Apakah postingan ini bermanfaat?
Jika maksud Anda itu adalah buku kerja (Bukan lembar) maka dari objek Anda harus melakukannya
gunakan properti Windows yang terlihat untuk menyembunyikan buku kerja
Rgds
P. Somoorthi
Apakah postingan ini bermanfaat?

Bagaimana cara menyembunyikan buku kerja di VBA?

#2 – Gunakan Jendela Langsung VBA untuk Menampilkan Semua .

Alt+F11 (membuka Jendela VB Editor)

Ctrl+G (membuka Jendela Segera)

Rekatkan baris kode berikut di Jendela Segera dan tekan Enter. Untuk Setiap ws Dalam Lembaran. ws. Terlihat=Benar. Lanjut

Bagaimana cara menyembunyikan seluruh buku kerja Excel?

Pada tab Tampilan, di grup Jendela, klik Sembunyikan atau Perlihatkan. .

Saat Anda memperlihatkan buku kerja, pilih dari daftar di kotak dialog Perlihatkan

Jika Perlihatkan tidak tersedia, buku kerja tidak berisi jendela buku kerja tersembunyi

Saat Anda keluar dari Excel, Anda akan ditanya apakah Anda ingin menyimpan perubahan ke jendela buku kerja yang tersembunyi

Bagaimana cara menyembunyikan semua lembar di VBA?

Cara menggunakan makro untuk menyembunyikan sheet di Excel .

Buka buku kerja dengan lembar tersembunyi

Tekan Alt + F11 untuk membuka Editor Visual Basic

Di panel kiri, klik kanan ThisWorkbook dan pilih Insert > Module dari menu konteks

Tempel kode di jendela Kode

Tekan F5 untuk menjalankan makro

Bisakah VBA mengakses lembar tersembunyi?

Satu-satunya cara untuk mengakses lembar Sangat Tersembunyi adalah masuk ke Editor VBA (Alt + F11) . Di sisi kiri atas layar, Anda akan melihat Project Explorer. Di sini, Anda akan melihat berbagai file dan add-in yang telah Anda buka, beserta objek relevan yang menyusunnya.