Posts

Showing posts from August, 2019

How to create a self signed SSL certificate and how to use it with your web Server.

Image
SSL certificate is the foremost important aspect of any website. If your website is running without the SSL, the modern browsers will stop the users from entering the website. Of course, there are ways to bypass that, at your own risk. As long as your website has no commercial data exchange, sensitive user information, etc, you are still good to run a website without a proper SSL certificate. For example, a blog can run without an SSL.  Note that Google AdSense accepts websites without SSL.  But the topic of this post is about Self Signed SSL certificate. How to create one, how to use it, and where to use it.  Let us see where to use it. For any website which is used for internal purposes, it's always a good idea to use Self Signed SSL, instead of paying for a real SSL certificate. Internal I mean, within a company, team, or for personal uses, for testing purposes, etc.  Now, let us see how to create a self-signed SSL certificate.  What you need A Linux machine.  OpenSSL utility  A

MS word drop down control with Excel data

Image
There are lots of things you can do with MS Excel and MS word. Word and Excel can be connected easily to build sophisticated use cases. Mail merge is one of the great tool, where you can leverage the data power of excel and reporting feature of the MS Word. With a bit of VBA knowledge, you can extend the mail merge for usages. Below I explain how to use the Excel data to populate the DropDown control in the MS word. And it is dynamic, when the data in Excel got changed, the items in the drop-down will also be changed.  First, I have this sample data in Excel. I want this data to be displayed in a dropdown control in the MS Word. For this I am making use of this macro or VBA code. Private Sub ld_Click() Dim objExcel As New Excel.Application Dim objWB As Excel.Workbook Set objWB = objExcel.Workbooks.Open("C:\Users\krsanjee\Documents\krishtalk.com\book1.xlsx") 'Me.drop.RemoveItem (0) Me.drop.Clear total_rows = Cells(Rows.Count, 1).End(xlUp).