完全隐藏工作薄.急啊！！！在线等待中

2006-11-08 11:47:59 321 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DASH 流媒体协议（Dynamic Adaptive Streaming over HTTP）概述——起源、MPD文件解析、相关项目简单介绍DASH的起源与发展、MPD文件简要解析、相关项目，以及常见流媒体协议的比较阅读详情

各位大虾：
现要用EXCEl实现一个数据查询的功能，新建了一个.xla文件，但没有打开这个文件时，都会显示默认的工作薄（包括默认的sheet1,sheet2,sheet3）。现在我想打开这个.xla文件时，不显示这个工作薄入相关的工作表，请位各位大虾指点一下，该怎么做，谢谢，

...全文

毕业设计——基于卷积神经网络的高速公路团雾智能识别系统设计与实现（数据集+源码+可视化+综述）同时，也可以结合其他技术，如雷达、红外传感器等，实现多源信息的融合与协同处理，提高系统的可靠性和稳定性。实验结果表明，该系统能够实现对高速公路团雾的准确、快速识别，为高速公路的安全运行提供了有力保障。团雾作为一种常见的气象现象，具有突发性、局地性和消散迅速的特点，对高速公路的行车安全构成严重威胁。通过设计合适的网络结构，如增加卷积层、池化层等，实现对图像中团雾特征的自动学习和提取。预处理：对采集到的图像进行去噪、增强等预处理操作，以提高图像质量，降低后续处理的难度。读取数据，随机分为训练集和验证集。阅读详情

machunfeng

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

明察秋毫 2006-11-23

打赏
举报

插入一个用户窗体，添加一个文本框作为密码识别，一个命令按钮，当密码正确是执行你的宏命令，
在工作簿打开时添加以下代码
Private Sub Workbook_Open()
Sheet1.Cells.Font.Color = RGB(255, 255, 255)
UserForm1.Show
End Sub
这样，如果密码不正确，你的表的字体就是白色的，哈哈谁也看不到了

drinkcrow 2006-11-14

打赏
举报

alt+f11 打开VBA，在工程资源管理窗口中找到 sheet1,点中它，在属性窗口(若无，F4打开此窗口)中修改Visible属性即可

lyl_98 2006-11-14

打赏
举报

在VBA编辑器中修改sheet的Visible属性可以隐藏，但是好像必须的有一个是显示的。

XYX_YE 2006-11-14

打赏
举报

我调用了五个API函数来实现了这个功能.
把以下的化码装入thisworkbook模快中
并把"隐藏工作薄"替换成你的xla文件名(不包含".xla")

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As

String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String,

ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String,

ByVal nMaxCount As Long) As Long
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Private Sub Workbook_Open()
Dim h As Long
h = FindWindow("XLMAIN", vbNullString)
h = GetBookHandle(h, "隐藏工作薄")
ShowWindow h, 0 '隐藏
'ShowWindow h, 1 ' 显示
MsgBox ThisWorkbook.Name + "成功被隐藏了!"
End Sub
Function GetBookHandle(ph As Long, WinCaption As String) As Long
Dim StarCh As Long
Dim WinText As String * 255
WinText = ""
StarCh = GetWindow(ph, 5)
GetClassName StarCh, WinText, 255
Do
If Left(WinText, 6) = "XLDESK" Then Exit Do
WinText = ""
StarCh = GetWindow(StarCh, 2)
GetClassName StarCh, WinText, 255 + 1
Loop Until StarCh = 0
StarCh = GetWindow(StarCh, 5)
GetWindowText StarCh, WinText, 255
Do
If Left(WinText, Len(WinCaption)) = WinCaption Then
GetBookHandle = StarCh
Exit Do
End If
WinText = "'"
StarCh = GetWindow(StarCh, 2)
GetWindowText StarCh, WinText, 255
Loop Until StarCh = 0
End Function

Windows XP + Office2000 调试通过,祝你好运!

zsj1101 2006-11-11

打赏
举报

根据excel的规则最少都得有一个显示的。

完全隐藏工作薄.急啊！！！在线等待中

相关推荐