展开全部
1、首先我们打开vb6.0软件进入到标准”工程1“界面，这些32313133353236313431303231363533e78988e69d8331333433626538比较简单，就不一一上图了，在”form1“窗口上加载一个文本框”text1”如图。
2、文本框加载好以后，需要在右边属性界面设置它的高度和宽度。
3、点击属性界面的“height”设置文本框“text1”的高度为2000，再点击“width”设置文本框“text1”的宽度为2500如图。
4、然后再在文本框“text1”下面加载一个水平滚动条，然后设置水平滚动条的属性最大值“max“为2500”value“的值也为2500，最后更改水平滚动条的名称为”h1“如图。
5、然后把水平滚动条的最大位移量(largechange)设置为20最小位移量(smallchange)设置为2如图。
6、按照上面的方法，我们再把垂直滚动条加上，设置它的属性最大值为2000"value"值为2000，更改垂直水平条名称为v1，再设置垂直水平条最大位移量为20最小位移量为2如图。
7、然后是给这个工程编写程序：
PrivateSubh1_Change()
Text1.Width=h1.Value(文本框的宽度等于水平滚动条的value值)
EndSub
PrivateSubv1_Change()
Text1.Height=v1.Value(文本框的高度等于垂直滚动条的value值)
EndSub
8、即可随意调整文本框大小，拉水平滚动条文本框会宽度会随水平滚动条改变，拉垂直滚动条文本框高度会随垂直滚动条改变。

	
vb窗体直接传递参数有多种方式，比较常用的一种就是在模块里就可以声明全局变量，vb怎么在模块里就可以声明全局变量？
	
	

	
首先打开vb

	

	
	

	
如图，在这里点击右键，选择”添加“选项，然后点击“添加模块”

	

	
	

	
然后出现选择模块，点击“打开”

	

	
	

	
4

	
然后在模块里就可以声明全局变量了。。。

	
例如public a as integer

	

	

	

工作中有时需要对发出的Excel文件进行加密操作，避免文件中重要信息被不相关的人员获取。
提到Excel工作簿加密，小伙伴们可能马上会想到这样做：文件——>另存为——>工具——>常规选项——>设置打开密码。
那么，除了这种自带的工作簿加密方式，有没有更酷一些的操作呢？今天我给大家分享一个高级点的，设置用户窗体登录界面。效果如下：
怎么样，相对于自带的加密功能，是不是逼格立马高了许多。更重要的是，这个登录界面的背景图片和文字内容是可以自定义的。首次与用户交互便与众不同，让其有继续探索下去的兴趣。
请观看视频(第一次录制原声视频，哈哈^_^)
制作步骤：
01
—
制作用户窗体基础界面
ALT+F11进入VBE编辑环境后，插入窗体，窗体背景图片，标签，文字框，命令按钮，并按要求命名。
02
—
为命令按钮赋宏
为宏按钮编写VBA代码，以下五段代码功能分别为：
判断输入的用户名和密码是否正确；
修改用户名；
修改密码；
禁止用户强制关闭登录窗体；
退出用户窗体界面；
Private Sub CmdOk_Click()          '单击"确定"按钮的时候执行过程   'Application.ScreenUpdating = False          '关闭屏幕更新    Static I As Integer                         '声明一个变量   '判断用户名和密码是否输入正确    If User.Value = Sheets("用户名密码").Range("A2") & "" And Password.Value = Sheets("用户名密码").Range("B2") & "" Then        Unload Me                              '关闭登录窗体        Application.Visible = True             '显示Excel界面    Else        I = I + 1             '密码或用户名输入错误一次，变量i加1        If I = 3 Then         '如果输错三次执行下面的语句            MsgBox "对不起，你无权打开工作薄！", vbInformation, "提示"            ThisWorkbook.Close savechanges:=False            '关闭当前工作薄，不保存更改        Else                        '如果输错不满三次，执行下面的语句            MsgBox "输入错误，你还有" & (3 - I) & "次输入机会。", vbExclamation, "提示"            User.Value = ""                 '清除文字框中的用户名            Password.Value = ""             '清除文字框中的密码        End If    End If    'Application.ScreenUpdating = True           '开启屏幕更新End SubPrivate Sub UserSet_Click()          '单击修改用户名按钮时运行过程    Dim old As String, new1 As String, new2 As String    old = InputBox("请输入原用户名：", "提示")    new1 = InputBox("请输入新用户名：", "提示:请在新用户名前后分别加上""英文双引号")    new2 = InputBox("请再次输入新用户名：", "提示:请在新用户名前后分别加上""英文双引号")    If old <> "" And new1 <> "" Then                  '判断输入的用户名是否为空        '判断新旧用户名是否输入正确        If old = Sheets("用户名密码").Range("A2") And new1 = new2 Then            Sheets("用户名密码").Range("A2") = new1            ThisWorkbook.Save                        '保存更改            MsgBox "用户名修改完成，下次登录请使用新用户名！", vbInformation, "提示"        Else            MsgBox "输入错误,修改没有完成！", vbCritical, "错误"        End If    Else        MsgBox "用户名不能为空！", vbCritical, "错误"    End IfEnd SubPrivate Sub PasswordSet_Click()    '当单击更改密码按钮时运行过程    Dim old As String, new1 As String, new2 As String    old = InputBox("请输入原密码：", "提示:请在新密码前后分别加上""英文双引号")    new1 = InputBox("请输入新密码：", "提示:请在新密码前后分别加上""英文双引号")    new2 = InputBox("请再次输入新密码：", "提示")    If old <> "" And new1 <> "" Then                 '判断输入的密码是否为空        '判断新旧密码是否输入正确        If old = Sheets("用户名密码").Range("B2") And new1 = new2 Then            Sheets("用户名密码").Range("B2") = new1            ThisWorkbook.Save        '保存更改            MsgBox "密码修改完成，下次登录请使用新密码！", vbInformation, "提示"        Else            MsgBox "输入错误,修改没有完成！", vbCritical, "错误"        End If    Else        MsgBox "密码不能为空！", vbCritical, "错误"    End IfEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenMsgBox "请输入正确的用户名和密码登录"Cancel = TrueEnd IfEnd SubPrivate Sub CmdCancel_Click()    '当单击取消按钮时执行过程    Unload Me    '关闭登录窗体    ThisWorkbook.Close savechanges:=False  '关闭当前工作薄，不保存修改End Sub
03
—
设置工作表打开和关闭事件
这里主要用途是：
打开工作簿时隐藏Excel界面只显示窗体界面；
避免用户以特殊方式如Ctrl+Break或Esc、Command+Period等中断程序运行；
在合法登录之前，将核心数据表深度隐藏；
最终目的是让用户登录窗体能切实发挥作用，避免形同虚设。
Private Sub Workbook_Open()Application.ScreenUpdating = False '暂停刷新屏幕'屏蔽用户以Ctrl+Break(或 Esc、Command+Period)方式中断程序Application.EnableCancelKey = xlDisabledApplication.Visible = FalseUserForm1.ShowDim sh As Worksheet    For Each sh In Worksheets        sh.Visible = xlSheetVisible    NextSheets("数据地图").SelectApplication.ScreenUpdating = True '恢复刷新屏幕End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Dim sh As Worksheet    For Each sh In Worksheets        If sh.Name <> "首页" Then            sh.Visible = xlSheetVeryHidden        Else            sh.Visible = xlSheetVisible        End If    Next  End Sub
注:
1.因工作簿中至少要求保留一个工作表，无法全部隐藏，所以这里单独设置了”首页“工作表。本工作表无实质内容，只是简单的操作指导手册以及数据来源和作者信息等。当弹出询问“是否启用宏”的对话框时可显示该界面；
2.为了更好地保护用户名和密码，可以借助设置单元格格式为自定义的三个英文分号";;;"将用户名和密码隐藏，并配合工作表保护使用；
3.可以为VBA代码设置工程密码(本例密码123)，以保护全部代码。
至此，大功告成！
即便如此，用此方法制作的登录窗体，其实并非绝对安全可靠。毕竟连Windows和Office都可以盗版，何况用excel开发的登录界面。但是，日常工作中用这样的方式呈现，还是可以让人耳目一新、印象深刻。
如需下载Excel源文件，请回复关键词"用户窗体"。

   我用VB6企业版封装了一个DLL，其中有4个VB窗体——form1,form2,form3,form4，在excel 2003的VBE中用VBA代码调用DLL中的类模块、标准模块均成功，但是就是调用和显示不了VB窗体！！！应该怎么调用？才能显示？？？

     调用过程依次是：打开excel 工作薄，显示form1(在启动form1的过程中判断和启动form4);点击form1中的两个按钮，分别调用form2和form3;点击form2 和form3的按钮分别执行类模块中的相关sub.